home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr22
/
ben311.zip
/
INSTALL.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-05-15
|
2KB
|
56 lines
@ECHO Off
BEN Cls LightGray / GrowFilledBox 5 3 76 23 White Blue 1 / GetCD
Set S=%BEN%
BEN Locate 1 5 / WriteC Yellow Blue Welcome~to~the~Batch~ENhancer~Installation~Program!
BEN Locate 1 12 / WriteC White Blue This~batch~file~copies~all~the~files~included
BEN Locate 1 13 / WriteC White Blue in~this~package~to~a~directory~of~your~choice.
BEN Locate 1 21 / WriteC Cyan LightBlue Do~you~want~to~continue?~(Y/N) / Ask YN / Sound 50 50
If Errorlevel 2 Goto CloseDown
BEN FilledBox 6 12 75 21 Blue Blue 0 / Locate 1 12 / WriteC LightCyan Blue Do~you~want~to~install~the~package~to:
BEN Locate 1 15 / WriteC White Blue C:\BEN / Locate 1 18 / WriteC LightRed Blue ?
BEN Locate 1 21 / WriteC Cyan LightBlue Press~press~Y~or~N. / Ask YN
If Errorlevel 2 Goto GetT
Set T=C:\BEN
Goto Core
:GetT
BEN FilledBox 6 11 75 21 Blue Blue 0 / ShadFilledBox 10 11 69 16 White Cyan 0
BEN Locate 1 12 / WriteC White Cyan Enter~the~full~name~of~the~target~directory~(eg.~C:\BEN):
:GetTCore
BEN Box 24 14 55 14 LightGray Black 0 / Cursor Full / Locate 25 14 / Flush / GetLineU / Cursor Off
Set T=%BEN%
If not "%T%"=="" Goto Core
BEN Sound 50 50 / Message Please~do~enter~a~directory~name.
Goto GetTCore
:Core
Ctty Nul
BEN FilledBox 6 11 75 21 Blue Blue 0 / Locate 1 12 / WriteC LightGreen Blue Please~wait~while~INSTALL~is~copying~files~;
BEN Write LightGreen LightBlue .~.~. / Extract %T%\ D / Extract %T%\ P
%BEN%
If not Exist %BEN2%\NUL Md %BEN2%
Cd %BEN2%
BEN GetCD
Ctty Con
If "%BEN%"=="%T%" Goto cdOK
If "%BEN%\"=="%T%" Goto cdOK
BEN Message The~directory~"%T%"~is~invalid. Please~enter~another~directory.
Goto GetT
:cdOK
Copy %S%\*.* > Nul
BEN Beep / FilledBox 6 12 75 21 Blue Blue 0 / Locate 1 12 / WriteC White Blue The~installation~process~is~completed.
BEN Locate 1 21 / WriteC Cyan LightBlue Do~you~want~to~read~the~README~file?~(Y/N) / Ask YN
If Errorlevel 2 Goto LastMessage
BEN List README README~(Press~ESC~to~quit)
:LastMessage
BEN FilledBox 6 13 75 21 Blue Blue 0 / Locate 1 12 / WriteC White Blue Thank~you~for~trying~BEN,~the~Batch~ENhancer.
BEN Locate 1 14 / WriteC LightMagenta Blue Please~type~!BENDEMO~to~unpack~the~demonstration~files,
BEN Locate 1 15 / WriteC LightMagenta Blue And~then~type~BENDEMO~to~run~the~demo~batch~file.
BEN Locate 1 17 / WriteC LightRed LightBlue Thank~you!
:CloseDown
BEN CleanUp / Locate 1 25